home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
AmigActive 10
/
AACD 10.iso
/
AACD
/
Programming
/
AmigaTalk
/
TestFiles
/
TestMenu
< prev
next >
Wrap
Text File
|
2000-05-08
|
2KB
|
60 lines
aScreen <- Screen new: 'TestScreen'
aScreen setScreenModeID: 16r40D20001
aScreen open
aWindow <- Window new: 'TestWindow'
aWindow setFlags: 16r100F "ACTIVATE + SIZING + DRAG + DEPTH + CLOSE"
aWindow setIDCMPFlags: 16r340 "GADGETUP + MENUPICK + CLOSEWINDOW"
aWindow openOnScreen: 'TestScreen'
item <- IText new: 'ITextMI1'
item setIText: 'Test_MenuItem'
item setPens: 3 @ 5
item setITextOrigin: 0 @ 0
item setDrawMode: 2
sub <- IText new: 'ITextSI1'
sub setIText: 'Test_SubItem'
sub setPens: 3 @ 5
sub setDrawMode: 2
sub setITextOrigin: 0 @ 0
lenitem <- item getTextLength
lensub <- sub getTextLength
menu1 <- Menu new: 'Test_Menu'
menu1 registerTo: 'TestWindow'
menuitem <- MenuItem new: 'Item1'
menuitem registerTo: 'TestWindow'
subitem <- SubItem new: 'Sub1'
subitem registerTo: 'TestWindow'
menuitem setCommand: 84 "T"
subitem setCommand: 83 "S"
menu1 setFirstItem: 'Item1'
menuitem setSubItem: 'Sub1'
menuitem setFlags: 16r56 "HIGHCOMP + ITEMENABLED + COMMSEQ + ITEMTEXT"
subitem setFlags: 16r56
menuitem setItemFill: 'ITextMI1'
subitem setItemFill: 'ITextSI1'
menuitem setStartPoint: 0 @ 0
menuitem setItemSize: (lenitem + 40) @ 12 "COMMWIDTH + 13 == 40"
subitem setStartPoint: 140 @ 10
subitem setSubSize: (lensub + 40) @ 12
aWindow addMenuStrip: 'Test_Menu'
rval <- String new
rval <- aWindow handleIntuition
('HandleIntuition returned ', rval) print